home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / programs / swift45i.zip / BBSLIST.Q-A < prev    next >
Text File  |  1992-05-25  |  2KB  |  87 lines

  1. Variable 40 Name
  2. Variable 15  Phone
  3. Variable 15  Baud
  4. Variable 15  Hours
  5. Variable 25  Node
  6. Variable 65  ANotes
  7. Variable 65  BNotes
  8. PostInfo
  9. Display "       Do you want to view the current BBS list? "
  10. GetChoice YN View
  11. If View = "Y"
  12. Display "       Do you want details on each BBS listed? "
  13. GetChoice YN Details
  14. ClearScreen
  15. GetFile BBSLIST.DAT
  16. Display "BBS Name                  Phone          baud      hrs       Net/node  "
  17. Display "|========================= ============== ========= ========= =========="
  18. Repeat 32000
  19.  Read Name
  20.  Read Phone
  21.  Read Baud
  22.  Read Hours
  23.  Read Node
  24.  Read ANotes
  25.  Read BNotes
  26.  ChangeColor 12 0
  27.  Display "|"
  28.  TabDisplay 26 Name
  29.  TabDisplay 15 Phone
  30.  TabDisplay 10 baud
  31.  TabDisplay 10 hours
  32.  TabDisplay 10 Node
  33.  If Details = "Y"
  34.   ChangeColor 6 0
  35.   Display "|   " ANotes
  36.   Display "|   " BNotes
  37.  Endif
  38. EndRepeat
  39. EndIf
  40. If Security = "32000"
  41.   ChangeColor 13 0
  42.   Display "|       Do you want to add a BBS to this list?  "
  43.   GetChoice YN Add
  44.   If Add = "Y"
  45.    ClearScreen
  46.    ChangeColor 14 0
  47.    Display "       Enter the Name of the Board:        "
  48.    Ask 40 Name
  49.    Display "       Enter the complete phone number:    "
  50.    Ask 30 Phone
  51.    Display "       Enter the baud rates accepted:      "
  52.    Ask 40 Baud
  53.    Display "       What hours is this board operated:  "
  54.    Ask 40 Hours
  55.    Display "       Enter your current Net:Node Number: "
  56.    Ask 30 Node
  57.    SetFlag D8 ON
  58.    OutputAnswer "BBS Name:  " Name
  59.    OutputAnswer "PHONE:     " Phone
  60.    OutputAnswer "BAUD:      " Baud
  61.    OutputAnswer "HOURS:     " Hours
  62.    OutputAnswer "NET/NODE:  " Node
  63.    ChangeColor 14 0
  64.    Display "       Describe your bulletin board in the following 2 lines|"
  65.    Display "       or press enter twice|"
  66.    Display "       "
  67.    Ask 65 ANotes
  68.    OutputAnswer "BBS Notes  " ANotes
  69.    Display "       "
  70.    Ask 65 BNotes
  71.    OutputAnswer "BBS Notes  " BNotes
  72.    AppendFile BBSLIST.DAT
  73.    Write Name
  74.    Write Phone
  75.    Write Baud
  76.    Write Hours
  77.    Write Node
  78.    Write ANotes
  79.    Write BNotes
  80.   Endif
  81. Endif
  82. ChangeColor 6 0
  83. Display "||      Press your enter key to return to SwiftBBS|"
  84. Ask 1 AnyKey
  85. Quit
  86.  
  87.